home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1988 December / Ahoy_Magazine_88-12_1988_Double_L.d64 / Cup Of Boolean (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  670 b   |  21 lines
  1. 0 dim boolean$(1):boolean$(0)="false":boolean$(1)="true"
  2. 1 rv$=chr$(18):ro$=chr$(146)
  3. 2 printchr$(147);:input"enter your name";n$:input"enter your age";a
  4. 3 print:input"enter another name";n1$:input"enter another age";a1
  5. 4 rem
  6. 5 rem line 9 assigns a boolean value
  7. 6 rem of zero for false or one for
  8. 7 rem true to the variable nameboolean
  9. 8 rem
  10. 9 nameboolean=abs(n$=n1$)
  11. 10 rem
  12. 11 rem line 15 asigns a boolean value
  13. 12 rem of zero for false or one for
  14. 13 rem true to the variable ageboolean
  15. 14 rem
  16. 15 ageboolean=abs(a=a1)
  17. 16 print:print"true or false?":printrv$;n$;ro$;" is the same as ";rv$;n1$
  18. 17 print boolean$(nameboolean)
  19. 18 print:print"true or false?":printrv$;a;ro$;" is the same as ";rv$;a1
  20. 19 print boolean$(ageboolean)
  21.